/*-
 * Copyright (c) 2003, 2004 Lev Walkin <vlm@lionet.info>. All rights reserved.
 * Redistribution and modifications are permitted subject to BSD license.
 */
#include <asn_internal.h>
#include <constr_TYPE.h>
#include <errno.h>

/*
 * Version of the ASN.1 infrastructure shipped with compiler.
 */
int get_asn1c_environment_version() {
  return ASN1C_ENVIRONMENT_VERSION;
}

static asn_app_consume_bytes_f _print2fp;

/*
 * Return the outmost tag of the type.
 */
ber_tlv_tag_t asn_TYPE_outmost_tag(
    const asn_TYPE_descriptor_t* type_descriptor, const void* struct_ptr,
    int tag_mode, ber_tlv_tag_t tag) {
  if (tag_mode) return tag;

  if (type_descriptor->tags_count) return type_descriptor->tags[0];

  return type_descriptor->op->outmost_tag(type_descriptor, struct_ptr, 0, 0);
}

/*
 * Print the target language's structure in human readable form.
 */
int asn_fprint(
    FILE* stream, const asn_TYPE_descriptor_t* td, const void* struct_ptr) {
  if (!stream) stream = stdout;
  if (!td || !struct_ptr) {
    errno = EINVAL;
    return -1;
  }

  /* Invoke type-specific printer */
  if (td->op->print_struct(td, struct_ptr, 1, _print2fp, stream)) {
    return -1;
  }

  /* Terminate the output */
  if (_print2fp("\n", 1, stream)) {
    return -1;
  }

  return fflush(stream);
}

/* Dump the data into the specified stdio stream */
static int _print2fp(const void* buffer, size_t size, void* app_key) {
  FILE* stream = (FILE*) app_key;

  if (fwrite(buffer, 1, size, stream) != size) return -1;

  return 0;
}

/*
 * Some compilers do not support variable args macros.
 * This function is a replacement of ASN_DEBUG() macro.
 */
void ASN_DEBUG_f(const char* fmt, ...);
void ASN_DEBUG_f(const char* fmt, ...) {
  va_list ap;
  va_start(ap, fmt);
  vfprintf(stderr, fmt, ap);
  fprintf(stderr, "\n");
  va_end(ap);
}
